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Introdução 


Este livro contém programas de jogos 
espaciais para microcomputadores. 
Todos os programas são compatíveis 
com os micros fabricados no Brasil. 

Embora os micros nacionais utilizem a 
linguagem BASIC, existem três dialetos 
ou variações dessa linguagem, 
dependendo da marca e modelo do 
micro. Os micros nacionais são divididos 
em três “famílias”: a família Sinclair 
(TK-82C, TK-83, TK-85), a família TRS-80 
(CP-300, DGT-1000, etc.) e a família 
Apple (Maxxi, Ap-lII, etc.). Se você não 
souber a que família pertence o seu 
micro, poderá obter a informação em 
qualquer loja especializada. 

Neste livro, a listagem principal de 
cada programa é para os micros TK-82C 
e TK-83 (daqui por diante, tudo que 
dissermos do TK-83 também se aplica ao 
TK-82C). As linhas que precisam ser 
mudadas para que o programa funcione 
em outros computadores estão indicadas 
por símbolos e as modificações 
aparecem no final de cada listagem. 

Para cada jogo, há idéias para 
modificações e extensões dos 
programas. No final do livro, você 
encontrará algumas “dicas” para 
escrever seus próprios programas. 
Incluímos também uma tabela de 
equivalência para ajudá-lo a adaptar ao 
seu micro programas publicados em 
revistas e em outros livros, além de uma 
lista das instruções de BASIC usadas 
neste livro, com as respectivas 
definições. 


Como carregar os programas 


Se o seu micro não é o TK-83, as linhas 
que devem ser mudadas estão indicadas 
pelos seguintes símbolos: 

a TK-85 

m família TRS-80 

O família Apple 


Cada vez que você vir o símbolo da 
família a que pertence o seu micro, 
procure no final da listagem uma linha 


com o mesmo símbolo e o mesmo 
número. Use-a no lugar da linha 
correspondente da listagem principal. 


Pontos importantes 


1 Escreva as linhas exatamente como na 
listagem, incluindo todos os espaços e 
sinais de pontuação. 

2 Depois de bater cada linha, verifique 
na tela se está tudo certo. 

3 Antes de começar uma nova linha, 
aperte a tecla RETURN, ENTER ou 
NEWLINE. 

4 Cuidado para não pular uma linha ou 
misturar duas linhas. Use uma régua ou 
pedaço de papel para marcar o lugar 
onde está na listagem. 

5 Preste atenção nos símbolos que 
identificam as diferentes famílias e use a 
instrução apropriada para o seu modelo 
de micro, 

6 Se você está usando um micro TK-83 
ou TK-85, não deve escrever as 
instruções letra por letra. Em vez disso, 
use as teclas correspondentes a cada 
instrução, 

Talvez você prefira que alguém leia o 
programa para você enquanto aperta as 
teclas. Nesse caso, explique para o seu 
amigo que ele deve ler todas as vírgulas, 
pontos, parênteses e espaços. 


Como verificar os programas 


Depois de carregar o 
programa, consulte o 
manual do micro para 
ver como fazê-lo 
aparecer na tela. (Em 
geral, basta escrever 
LIST.) 

Verifique se todas as 
linhas estão corretas. E 


muito fácil cometer 
erros; não se admire se 
encontrar alguns. 
Consulte o manual para 
saber como alterar as 
letras ou símbolos que 
estão errados. Em 
muitos casos, é mais 
fácil tornar a escrever a 
linha inteira. A linha 
antiga (com o mesmo 
número) é 
automaticamente 
apagada. 
Eis uma lista dos erros mais comuns: 

1 Linha faltando. 

à Linha com número errado. 

3 O começo de uma linha emendado no 

final da anterior. 

4 Falta de parênteses, vírgula, dois 

pontos, ponto e vírgula, ponto ou 


espaço, especialmente nas linhas mais 
compridas. Cuidado com os parênteses 
duplos. 

5 Linha errada para o seu modelo de 
micro. 

6 Troca de zero pela letra “O”. 

7 Números errados (com zeros a mais, 
por exemplo). 


Experiências com os jogos 


Este livro contém várias sugestões para 
modificar e ampliar os programas, mas 
não tenha medo de introduzir suas 
próprias alterações. Não há perigo de 
danificar o computador; se sua idéia não 
der certo, você pode sempre voltar ao 
programa inicial. 

Você provavelmente terá vontade de 
mudar a velocidade de alguns jogos”, 


especialmente depois que estiver 
familiarizado com eles. As instruções 
para isso estão na página de cada 
programa. 


Como executar os programas 


Para começar qualquer jogo, você deve 
escrever RUN, Em alguns jogos, as 
coisas acontecem muito depressa, de 
modo que é melhor ler atentamente as 
instruções antes de começar. 

E bastante provável que o programa 
ainda contenha alguns erros. Nesse 
caso, não acontecerá nada ou o jogo 
dará resultados imprevistos. Pode ser 
que o computador mostre na tela um 
código de erro, que você pode procurar 
no manual. Isso o ajudará a localizar o 
erro. Liste o programa de.novo e 
compare as instruções com as do livro, 
uma a uma. 

Quando o jogo terminar, aparecerá na 
tela uma mensagem (BREAK IN LINE 
200, por exemplo). Para jogar de novo, 
você deve escrever RUN. 

Você pode mudar à 
vontade o texto entre 
aspas que aparece 
depois de qualquer 
instrução PRINT. 

Também pode 

acrescentar novas 

mensagens. Para isso, 

escreva o número de ES SA 
uma linha que não Ts 14 
aparece no programa 4 E, 
(105, por exemplo, se 

você quer incluir uma& 
mensagem entre as 

linhas 100 e 110), 

escreva PRINT e 

depois o texto da sua 
mensagem entre 

aspas. 

Se o seu computador é capaz de gerar 
cores ou sons, consulte o manual para 
descobrir como funcionam as instruções 
correspondentes e experimente usá-las 
nos programas deste livro. 


a - 


*Na página 35 há uma nota especial para os usuários do TK-85. 


Decolagem ico 


Você é o comandante de uma espaçonave. Sua nave caiu em um planeta Como o programa funciona 


desconhecido e você precisa decolar rapidamente em uma nave alienígena 
que conseguiu capturar. O computador da nave lhe diz qual é a força 
de gravidade do planeta, mas você tem que adivinhar qual a força que 
deve imprimir aos motores para decolar. Se a força for muito pequena, 

a nave não conseguirá subir. Se for muito grande, um mecanismo de 
segurança entrará em ação, desligando os motores para evitar que 
fiquem superaquecidos. Se ainda estiver no planeta depois de dez 

tentativas, será capturado pelos alienígenas. 


GIO CLS Limpa a tela. 
20 FRINT "DECOLAGEM" 
O computador escolhe dois 
BOZO LET G=INT(RND*20+1) À números: um entre 1 e 20, para 
BO40 LET W=INT(RND*40+1) colocar em G, e outro entre 1 e 


40, para colocar ém W. 


EE e 


50 LET R=64W Multiplica o número em G pelo 
número em W. Coloca o 


resultado em R. 


60 PRINT "GRAVIDADE "46 ——————————— Imprime GRAVIDADE e o 
número que está em G. 


70 PRINT "DIGA A FORCA! > Pede a você para dar um palpite. 


8o FOR C=1 TO 10 Começa um “loop”, dizendo ao 
computador para repetir as 


instruções seguintes 10 vezes. 


90 INPUT F Guarda seu palpite em F, 


100 IF F>R THEN PRINT "MUITO GRANDE"; — Compara o número que está em 


110 IF FOR THEN PRINT “MUITO PEQUENA! ; F com o número que está em R e 
120 IF F=R THEN GOTO 190 imprime a mensagem apropriada 
ou pula para 190, 


130 IF Cório THEN PRINT ", TENTE DE Novo" — Pede para você tentar 
de novo. 


Fim do “loop”, Volta para a 
instrução 80. 


150 FRINT 

140 FRINT "VOCE FALHOU” Chega aqui depois de dez 
170 PRINT "E FOI CAPTURADO" palpites errados. 

1igo STOF 


190 PRINT "ROA VIAGEM" 
200 STOF 


140 NEXT C 


Nos computadores 
tipo TRS-80 ou 
Apple, você pode 
usar END em lugar 
de STOP. 


A listagem acima é para o TK-83. Para os 
outros computadores, faça as mudanças abaixo. 


Gio HoME 

OZ0O LET G=INT(RND(ID) *20) 
EZO LET G=INT(RND (0) *Z0) 
040 LET W=INT(RND(1)*440) 
40 LET W=INTCRND (0) 440) 


Problema 


Como você faria para mudar a máxima 
força possível? - 


Jogos Intergalácticos E: EEE E E] Problema 
- EA x” BR Como você mudaria o programa para 


E PE que, se você ganhar, ele comece 
As redes de televisão da Terra estão automaticamente outro jogo, somando o 


competindo pela cobertura exclusiva dos - a Ml prêmio que você já ganhou aos novos 

Primeiros Jogos Intergalácticos. A Ami E OBS prêmios? 

companhia que conseguir primeiro colocar - a) (Pista: você precisa mudar duas linhas e 

um satélite em órbita na altitude correta == Hj acrescentar uma.) 4 

ganhará a concessão. | | Veja quantas vezes consegue jogar 
Você é o engenheiro que a Rede Século = E antes de ser despedido. 

21 encarregou de lançar o satélite. Será 

que vai conseguir lançá-lo com o ângulo e 

velocidade corretos? 


O significadolie EO está na pág. 2. 


Como o programa funciona 


“EIRATA COSMICO" Fixa o tamanho da rede. 
E pi po Fixa o número de tentativas. 
so =4 A posição de Elron é fixada 


MOSO LET X=INTCRND*S) por essas três linhas 
BO so Y=INT(RND*S) eo! 5 ' 
Começo de um “loop” que diz 


EO70 D=INT (RND*S) —— ao computador para repetir 
| as próximas 15 linhas G vezes. 
E I=1 TO 6 E 
FRINT "FOSICAO X (0 A DP" 
ed di e Pede a você três números e 
vi “"POSICAD Y (0 A PE! 
c Xl, Yle DI. 
INFUT Y1 oloca em XI, 
PRINT "DISTANCIA (0 A 9! 
INFUT D1 


IE X=XL AND Y=YL AND D=Di THEN GOTO 280———— Verifica se: você acertou 
e nesse caso pula para 300. 


FRINT “TIRO FOI FARA 
IF Y12Y THEN PRINT : 
Ir “Y THEN PRINT : Compara seus palpites 
IF *X THEN PRINT i com a posição de Elron 
IF X1:X THEN PRINT "O" e dá uma pista. 

FRINT 

LF DID THEN PRINT “MUITO LONGE" 

IF DID THEM ERINT “MUITO PERTO! 


NEXT 1 i ; 
FRINT outra tentativa. 
a "VOCE FOI CAPTURADO!" Chega aqui depois de G 
PRINT palpites errados. 
FRINT "XxBUUUMA VOCÊ O FEGOU!!P Chega aqui se você acertou. 
STOR 
A listagem acima é para o TK-83. Para : TI 
os outros computadores, faça as Como tornar o jogo mais difícil 
mudanças abaixo. Este programa foi escrito de tal forma que 
você pode mudar facilmente a dificuldade 
nad pesa cd alterando o tamanho da rede. Para isso, 
LE a coloque um valor diferente de S na linha 30, 
LET NT (RND (1) 45) Se você aumentar o tamanho da rede, 
LET Y=INTCRND (0) 45) precisará de mais bombas para ter uma 
espiada brastemp possibilidade razoável de acertar a nave 
a de Elron. Para isso, mude o valor de G 
linha 40, 


=== 


o 


Problema 


Como você mudaria o programa para 
que o computador lhe peça o valor de 
um número de dificuldade para colocar 
em S? (Pista: limite o valor de S a um 
número entre 6 e 30 e use INT (5/3) para 
o valor de G na linha 40.) 


(Sul)+— Posição Y —(Norte) 


“(Oeste )4+——— Posição X——p (Leste). 


ido SS E 


Os Olhos dos Monstros 


Você está encurralado! Para onde quer que se volte, os olhos frios e 
assustadores de um monstro do espaço o espreitam por um momento, 
antes que o animal se esconda atrás de uma pedra. Pouco a pouco, os 

monstros se aproximam de você, tentando envolvê-lo em seus tentáculos. 
Felizmente, você está com a sua pistola de prótons. 

Os olhos dos monstros aparecem em quatro lugares diferentes da tela, 
que correspondem às teclas de 1 a 4. Se você apertar a tecla certa 
enquanto os olhos do monstro estiverem na tela, ele será destruído. 
Existem 10 monstros... à medida que você os destrói, sua chance de 

escapar aumenta, 


Como o programa funciona 


FRINT "QS OLHOS DOS MONSTROS" 


Coloca a contagem em zero 
LET S=0 


para começar o jogo. 


O FOR T=1 TO io Início de um “loop” para 10 


monstros. 


OM cs Limpaatela. 


BOsSo FOR 1=1 TO INT(RNDXZ0+20) ] “Loop” de espera que dura 
o NEXT T um tempo variável, que 
nO7o depende do valor de RND. 


LET R=INT(RNDx9+1) di 
Escolhe um número de la 4 e 


BOBO GOSUE Z10+Z0%R coloca em R 


Pula para uma das quatro 
sub-rotinas, dependendo do 
valor de R. Cada uma delas 
coloca o cursor em uma 
posição diferente da tela: “A” 
espaços na horizontal e “D” 
linhas na vertical. 


GOSUB faz o computador 
pular para uma “sub-rotina”. 
RETURN faz o computador 
voltar para o programa 
principal. 


90 PRINT "DO" Coloca os “olhos do monstro” 


BOico FOR I=1 TO 20. na tela. 
| Ea 
BOJO LET R$=INKEEYS 
120 IF R$s2"" THEN GOTO 140 
130 NEXT 1 
140 IF VAL("O"+R$)< 2R THEN GOTO 210 
ISO LET S=5+1 


“Loop” para ver se você está 

apertando uma tecla. Se está, 
o computador pula para 140 e 
verifica se é a tecla certa. 


Aumenta a contagem de 1. 


o 1%o 


. Leva o cursor de volta para a 
aro aca o mesma posição e coloca uma 
180 FRINT x! 


estrela na tecla. 
“Loop” de espera para deixar 


HO 190 FOR J=1 TO 40 Be 
NEXT J a estrela um tempo suficiente 


D STOF 
à» LET D=5 
O LET A=1 


na tela. 


Volta para o monstro 
seguinte, 
Imprime a contagem final. 


NEXT T Too 


FRINT "VOCE MATOU "45:"/10 MONSTROS" 


GOTO =50 —— Sub-rotinas. 


70 LET D=1 


O LET A=7 


O PRINT 


O LET A=9 


GOTO 550 


O LET D=5 
D LET A=18 


GOTO s5o 
LET D=10 
Como mudar a 


FOR I=1 TO D velocidade 


70 NEXT T 


A listagem acirha é para o TK-88. Para 
os outros computadores, faça as mudanças abaixo. 


040. 


so 
so 
yo 
070 
EO 00 


6100 FOR I=1 TO 150 

Oios R$="" 

GO IF FEEE(-16384):127 THEN GET R$ 
BO190 FOR J=1 TO 500 


Você pode acelerar o jogo 
diminuindo o último 
número da linha 100. 


FRINT TAR(A)S 
RETURN 


Como aproveitar 
melhor a tela 


Você pode fazer com que 
os olhos apareçam em 
posições mais afastadas. 
Para isso, basta mudar os 
valores de À nas linhas 
250, 280, 310 e 340. 
Consulte o manual do seu 
micro para ver o valor 
máximo que pode usar. 


> 
* 


Lão HOME 

FOR 1=1 TO INT(RND(O) *500+200) 
FOR I=1 TO INT(RND(1) *300+200) 
LET R=INT(RND(O) x4+1) 

LET R=INT(RND(1)*4+1) 

ON R GOSUE 240,270, 300, X30 


Problema 


Como você mudaria o programa para os 
olhos aparecerem em mais de cinco 
pontos da tela? E para apareceram mais 
olhos? 


Módulo Lunar 


Você está no controle de um módulo lunar que está levando um pequeno grupo de 
astronautas para uma superfície da Lua. Para pousar com segurança, você precisa 
reduzir a velocidade disparando um retrofoguete, mas seu suprimento de combustível 
é limitado, 

O computador de bordo lhe diz qual é a altitude inicial, a velocidade e o suprimento 
de combustível e lhe pergunta a quantidade de combustível que deseja queimar. Em 
seguida, calcula a nova altitude e velocidade. Queimando cinco unidades de 
combustível, você mantém a velocidade constante. Uma quantidade maior diminui a 
velocidade. Procure pousar com a menor velocidade possível. Será que você vai 
conseguir pousar na Lua? 


Repare nas vírgulas e ponto e 
vírgula das linhas 70 e-80. 
Gio cis Experimente omiti-las ou 

O PRINT "MODULO LUNAR! permutá-las para ver o que 


“0 LET T=0 acontece. 


40 LET H=500 

JO LET V=50 3 

&0 LET F=120 

70 FRINT "TEMPO!STo "ALTITUDE! GH 

Go PRINT "VELOC"EV, "COMBUSTIVEL "SE 


Po TF F=0 THEN GOTO 140 
00 FRINT "QUEIMA? 030)" 
Jio INFUT 

(20 TF ELO THEN LET E=0 
[Zo TE Reão THEN LET E=J0 


140 JF K=F THEN LET E=F 
1ã0 LET Vi=V>B+s 


L6O LET F=F-R 


170 [FE (VIiHy)/D22=H THEN GOTO 220 


tdo LET H=H=(Vi+V)/2 
190 LET T=T+1 


200 LET V=VI 


210 GOTO 70 

“20 LET Vi=V+(S-E) xH/V 
220 FRINT 

Mo TE Visã THEN FRINT "VOCES CAIRAM... TODOS MORTOS" 

250 IF Vi=j AND Vis=5 THEN FRINT "DE...MAS ALGUNS FERIDOS" 
250 IF Vic=1t THEN FRINT "BOA ATERRISSAGEM” 
Z70 STOR 


A listagem acima é para o TK-83. Para 
os outros computadores, faça a mudança abaixo. 


Oo HOME 
12 


O significado de € está na pág. 2. 


Como aumentar o programa 


Se você acrescentar as linhas abaixo, aparecerá 
uma estrela nas posições sucessivas da nave. À 
distância da estrela até o lado esquerdo da tela 
corresponde à altitude da nave. 


tu HH ORM 


Substitua nn pela largura da sua tela. 


m rograma funciona Pra 
Como o prog a Faça uma experiência 
Experimente mudar os valores de H, Ve F nas 


À : ; linhas 40 a 60 para ver o que acontece. 
Fixa e imprime os valores 


iniciais do tempo, altitude, 
———— velocidade e combustivel. 


Problema 


Se acabou o=combustivel, o 
computador pula a parte em 
que pergunta a voce quanto 
combustivel deve queimar. 


Pergunta a voce quanto 
combustivel deve queimar e 
verifica se esta dentro dos 
limites. 


Você pode tornar o jogo mais fácil aumentando a 
velocidade máxima permitida para uma 
aterrissagem segura. Como você mudaria o 
programa para que isso acontecesse? 


Calcula a nova velocidade, 
VAR 

Calcula quanto combustivel 
resta, 

Verifica se a distancia 
percorrida desde a ultima 
queima e maior ou igual a 
altitude. Em caso afirmativo, 
voce pousou. O computador 
então pula para a parte em a 
que verifica se voce pousou 
em segurança. 


Calcula a nova altitude. 


Aumenta o tempo de 1. 


Coloca a nova velocidade em 
V para que seja impressa na 
Linha 80. 


Volta ao começo do “loop”. 


Calcula a sua velocidade final 
e verifica se voce pousou 
bem. 


Feras de Galacticon 


Pousar em Galacticon foi fácil... mas 
ninguém avisou a você que ali vivem 
algumas das mais perigosas feras do 
Universo. 

Ão ser atacado por um dos 
monstros, você precisa escolher uma 
de suas armas — uma pistola de 
ralos, um sabre de laser ou um 
triturador molecular — para usar 
contra ele. Se fizer a escolha correta, 
talvez consiga sobreviver para 
conquistar Calacticon. 


Como o programa funciona 


CEIA mm Tr dd 


Como o programa funciona 


Eds RE = ad CLS 
so E: : gSE ; PRINT "EMBOSCADA" 
: ; f O PRINT Pede a você um número de 
pre: PRINT “DIFICULDADE (1-10)" dificuldade, coloca em D e 
INFUT D verifica se está dentro dos 
. > a. IF D<1 OR D>10 THEN GOTO 50 limites. 
EA t O LET S=0 Inicia a contagem em zero. 
ç fe pa O FOR 6=1 TO 10 ———————— >> > > > Começo de um “léop” de 10 
à s ) tentativas. 
ADO 90 LET L$=CHRS (INT (RND*(26-D) +38)) ———————— Escolhe uma letra entre A e D 
| letras antes de Z. 
ha WE : BO 100 LET N=INT(RND4D+1) >>> Escolhe um número entre 1 e 
as » D. 
á Ê " GUS 
- R O FRINT Imprime a letra e o número. 
AN ; ; O PRINT L$,N 
Pai ” - 3 
J E da FOR I=1 TO 20+D+45 Verifica se você está 
ci ” : LET MRSINKEVS ] apertando uma tecla e pula 
O IF I$42"" THEN GOTO 190 190 Rue 
! x » NEXT 1 para se você está. 
e . D GOTO 200 Se você não apertou 
CAI nenhuma tecla, pula para 200 
º x : DA AIG : e começa uma nova tentativa. 
E 4 
; 1 Ea “pe A 
Ea Verifica se você 
| E apertou a tecla certa; 
Gio em caso afirmativo, 
R E aumenta a sua 
BOi9O IF I$=CHR$(CODE (L$)+N) THEN LET S=SF contagem de 1. 
cé | 206 NEXT GE———>—>>—>—>—>—>—>——>————————— Fim do “loop”. Volta para 
À outra tentativa. 
3 ! 210 PRINT "VOCE “ÁCERTOU " “/10"——————— Imprime a contagem depois 
Ê de 16 tentativas. 
A listagem acima é para o TK-83. Para os 
outros computadores faça as mudanças abaixo. 
o Gio tio HOME 
E 90 LET L$=CHR$ (INT (RND (0) *(26-D) +65)) 
090 LET L$=CHRS CINTC(RND (1) *(26-D) +65)) 
p AO LET L$=CHR$ (INT (RNDX(26-D) +65) ) 
y DO LET N=INT(RND(O)*D+1) 
d 00 LET N=INT(RND(I) 4D+1) 
o Á . D FOR I=1 TO 200+Dx50 
O FOR I=1 TO 100+Dx50 , 
Ig="a 
/ = O IF FEEKE(-16384) >127 THEN GET 1% 
: , Ã a IF I$=CHR$(ASC (L$) +N) THEN LET S=S+1 
- á Jo . 
. fa Ê = 
— é 1 — E - 


com eles, precisa destruí-los; 
tamanho do asteróide. 


Os asteróides aparecem na tela do seu computador como grupos 
' de estrelas. Para destruí-los, você precisa apertar a tecla do número 

7 correspondente ao número de estrelas. Não perca tempo... os 
asteróides são muito velozes! 


Cinturão de Asteróides 
Você está atravessando o Cinturão de Asteróides. Para não se chocar 
a força necessária para isso depende do 


" 


Como mudar a 
velocidade do jogo 


A linha 180 controla o 
tempo que você tem para 
apertar uma tecla. 

Para acelerar o jogo, 
diminua o último número 
da linha 180. 


Problema 


Você sabe como mudar o 
sistema de contagem para 
que o número de pontos 
seja igual ao número de 
estrelas de cada asteróide 
destruído? 


Imagine que você estáie 
espaçonave viajando co 


espaçonave do que na | 
Assim depois de uma 
viagem, você pode volt 
em uma data posterior à 


indicada pelo relógio da nayé! Te Y / [ ie(J] Ti Ip à ti ado mm. 
Neste jogo, o q q 74 A ND Tem TE - | | mM 1 IE, 
computador diz N o TP CDA É, iva ! [Go / DO es RA” é, ira 


quantos anos deverão ter 
passado na Terra até 
a sua volta, Você 
então tem que 
escolher a distância a 
ser percorrida (em 
anos-luz) e a 
velocidade da nave 
(em relação à 
velocidade da luz) 
para chegar à Terra 
na data prevista. 
Cuidado para não viajar E 
para muito longe e muito devagar, - 
ou poderá morrer de velhice no caminho 


Calcula o tempo transcorrido na 


Como o programa 130 LET T2=T1/SOR(1-Vx*V) 


. funciona 140 PRINT "VOCE LEVOU “G TIS "ANOS" Terra. 
"o o iii 150 FRINT "E CHEGOU DEFOIS DE” Imprime os tempos. 
HÓZo0 LET SU a Ba PA ER” MMOs Verifica se você levou mais que 
40 PRINT "VOCE DEVE VOLTAR" Escolhe e imprime um número Aa q VADE SRI MME 69 anos ná viagem. ra Verifica se 
Ep io DAQUI A "sTs" ANOS." inteiro entre 25 e 124. afirmativo, pula para e você 
da imprime uma mensagem. aliégeu 
a ARA od Pede a você uma velocidade e o da 
; + e ; . a 
90 IF V>=1 OR V<=0 THEN GOTO 70 verifica se está dentro dos 180 IF ARSCT-12)<=5 THEN PRINT "VOCE CHEGOU NA HORA" ii 
Ei ) - limites. 190 IF (T-T2)>5 THEN PRINT "VOCE CHEGOU MUITO CEDO" Pp 


100 PRINT “DISTÔNCIA A PERCORRER" R ietânci 200 IF (T-T2)<-5 THEN PRINT “VOCE CHEGOU MUITO TARDE" imprime 
116 INPUT D É OR nã uma distância. 210 STOP uma 


220 PRINT "VOCE MORREU NO CAMINHO" mensagem 
= Calcula o tempo transcorrido 230 STOP apropriada. 
vo 4) dentro da nave. 


120 LET Ti=D/V 


Problema 


Mude o programa para: E 
1) Aumentar o número de anos que 
devem passar na Terra. 
2) Diminuir a tolerância na sua data de 
chegada de 5 para 2 anos. 

3) Aumentar (ou diminuir) o seu tempo 
de vida. 


A listagem acima é para o TK-83. Para os 
outros computadores, faça as mudanças 

abaixo. 
O 10 HOME 


BZO LET T=INT(RND(O) *100+25) 
OZ0 LET T=INT(RND(I)*100+25) 


O significado de m Gestá na pág. 2. 


ENS 


Vale da Morte 


Só há um meio de escapar ao ataque dos perigosos Dissectitrons. 
Você vai ter que respirar fundo e entrar com a sua nave no perigoso 
desfiladeiro conhecido como Vale da Morte. 

Seu computador vai querer saber a largura do yale, Comece com 15 € 
vá diminuindo aos poucos; 8 já é bastante difícil. Dirija sua nave apertando Q 
para ir para a esquerda e P para ir para a direita e veja se consegue 
atravessar o Vale da Morte. 


Você acaba 


T FF=INT(RND*40+80) 


CE=INT (RND*40+80) 


150 PRINT “VC 
160 PRINT ' 


=: "305" TONELADAS" 


PRECO DE VENDA DO MINERIO:$&";CP;" POR TONELADA" | 
- VENDA DAS MINAS :$";LP;" POR MINA? 


|] 240 FRINT "QUANTAS TONELADAS DE MINERIO 


e soma à sua reserva de dinheiro. 


290 PRINT "QUANTAS MINAS VAI VENDER 24 

300 INPUT LS 

31O IF LS<O OR LS>L THEN GOTO 290 Repete o processo para a venda de 
minas, 


VAI VENDER 2! ng Eber ifica da a 

| 250 INPUT CS ihtente aço $ 
260 IF CS£O OR CS>C THEN GOTO 240 = 

| 270 LET C=C-ES Desconta a quantidade vendida da 
| quantidade em estoque. 
280 LET M=M+CSx*CP Calcula o valor do minério vendido 
] 
| 


S20 LET L=L-LS 
330 LET M=M+LS*LP 


340 PRINT rs 
350 PRINT “AGORA VOCE TEM 6":M Imprime sua nova reserva de 
Z60 PRINT dinheiro. 

370 PRINT "COMPRAS" 


380 PRINT "QUANTO QUER GASTAR EM COMIDA ? 
. Ro (HAB)! 


1.1 THEN LET P=P+INT(RND*LO+L) 


8<.9 THENCLET Papo 


Ss0 IF P<3 LÊ DO — Se restam 1 
ici IF FsL30 THEN GOTO 700 = colbrGd, 040! 
BOSSO IF RND>.0! THEN GOTO 590 Introduz uma 
570 PRINT "VAZAMENTO RADIOAT EPs os MT MORTOS" Siplnbiidada de Metab 
S80 LET F=INT(F/2) população morrer. > 
S90 IF CES150 THEN GOTO 620 Se a produção por mina é 
500 PRINT "EXCESSO DE FRODUCAO. . . QUEDA DOS FRECOS"|- alta, O preço do minério cai à 
610 LET CE=INT(CE/2) metade 
620 LET V=y+1 O número do ano aumenta de 
1; se for menor que 11, o 
630 IF Y<11 THEN GOTO 90 computador volta para 90. 
S40 PRINT “VOCE CHEGOU AO FIM DO MANDATO" Chega aqui se você consegue 
650 STOP chegar ao décimo ano. 
660 PRINT "OS COLONOS SE REVOLTARAM! 
670 STOF 
680 FRINT “EXCESSO DE TRABALHO!" 
590 STOF 
700 FRINT "POFULACAO INSUFICIENTE" 
710 STOF 
A listagem acima é para TK-83. Para outros 
computadores, faça as mudanças abaixo. 
Otto HOME f 


010,20,50,40,50,90,100,500,510,530,540,560 
mude RND para RND(1) 

810,20,30,40,50,90, VA gap 
mude RND para RND(O) ia go 


O significado de E O está na pág. 2. 


MOBO LET E=INTERNDESOO+ GD] ) 


“Salvamento no Espaço à 


Você precisa' fazer uma viagem urgente a um planeta distante, do outro lado 
“da Galáxia, para entregar remédios. À viagem é tão longa que você tem que 


* fazê-la em estado de hibernação. Antes de partir, o computador lhe pergunta e 


- quanta energia vai destinar aos motores, ao sistema de controle ambiental e 


à blindagem da nave, 


Quando você acorda, o computador lhe informa sobre o que aconteceu 
durante a viagem; se tudo correu bem, você está em orbita em torno do 


planeta, Agora precisa distribuir a energia que resta entre os retrofoguetese .- 


-. à blindagem térmica, de modo a fazer uma boa aterrissagem. 


Se conseguir cumprir a missão, será promovido a Almirante do Espaço. 
Boa sorte! 


Ot CLS y Sp Ea, 
0 PRINT "SALVAMENTO: NO ESFACO! 
SO PRINT o : . 
40 PRINT "VOCE FRECISA DE [NSTRUCOES «r 
ao E[NELT Tu : Rs 
MOO IE Ib(ld="S" THEN GOSUK LODO 
BO70 LET D=INT(RNDEEOOS 10] ) 


PO LET T=INTE(DASOR (E/5) +, 5) 


100 PRINT “O FLANETA ESTA A "sDy' UNIDADES DE. DISTANCIA! 


AO PRINT "VOCE TEM "PES" UNIDADES DE. ENERGIA! 
 AZ0O PRINT "E DEVE CHEGAR EM “ATE” DIAS" 
“ZOO PRINT 
AO PRINT "DISTRIBUICAO DE ENERGIA! 
ão FRINT "PARA OS MOTORES o 
Léty INPUT E E. 8 e ER 
DZ RRINT “RARA O CONTROLE AMETENTAL ro 
Tao INFLT |. ; 
AO PRINT "PARA A BLINDAGEM Pr 
“00 INFLT Ss 
“10 TF PAL+B:E THEN GOTO 1490. 
LET X=E-P-L-sS 
LET V=INT(SQR(F)) 


ER LET TVi=INT(D/V) 
e:!i) CLS Rs 
“260 FRINT "SUA VELOCIDADE. E. “ay: . 
» PRINT "VOCE DORMIU “Ti; DIAS $ 
me FR TNT ' " “ . 
pgs WOZ9) FOR 1=1 TO INT RNDKS+A) 
“E O TÊ RND:.=S THEN GOTO 430 
[] O GOTO E20HINT(RNDX9) *ZO : 
220 PRINT "CHUVA DE ASTERDIDES, ,. BLINDAGEM: DANIF IGADA! 


EO :ZO. 


490 
S00 


NO TORTA 
ETA) 
“go 
Ei) 
nOS40%) 
ELO 
620 
6ZO 
640 
850 
“660 
670 
GR 
Pac) 
ZOC) 
710 
FAS) 
ZHO 

A PAO) 
0750 


760 


O programa continua na página seguinte. 


LET. S=8-20-INT (RNDX40+ 1 

GOTO 430 CARROS ea UR 2 a 
ERINT "DEFEITO NO COMPUTADOR. .:«:FARADA FARA REFAROS Er 
LET D=D+INT(RND+*20+1) 

GOTO 430 RPA E PO pastar dA o 

FRINT "DEFEITO NO MOTOR. . . VELOCIDADE REDUZIDA 

LET V=V-. a ; 

GOTO 450 


FRINT "RADIACAO! COSMICA: .« DEFÉITO:-NO CONTRÓLE AMETENTAL 


LET L=L.=20-INT (RND*40+1) 
FOR J=i TO 30 


NEXT 

NEXT 1 a 
LET. Ti=INT(D/V) 
CLS 


FRINT "CHEGOU EM “E Ti;”! DIAS". ER 
IF S:0 THEN FRINT "ELINDAGEM DESTRUIDA". | 
IF 940 THEN PRINT "SUA NAVE EXPLODIU" 
1F Li=0 THEN PRINT “CONTROLE AMBIENTAL 
IF Li=0 THEN PRINT "VOCE MORREU” 

IF Vi=0 THEN PRINT "MOTORES INOFERANTES" 

LE T1>T THEN FRINT "VOCE LEVOU TEMPO DEMAIS” 

IE SL0 OR Li=0 OR Vá=0 OR Ti2T THEN STOF 

LET G=INT(RND*10+5) 

LET G&="ALTA E 
NEGRAS TRE DER SD a 
IF G:48 THEN LET G$="BAIXA” Pe 

LET A=TNTERNDALO+S) 

LET At="DENSA! 

IF ASI THEN LET A$="MEDIA! 


INDFERÔNTE" * 


IF AXE THEN LET AS="RAREFEITA! 

ERINT btus RR Es 
PRINT "VOCE AGORA ESTA EM OREITA! 

PRINT “ENERGIA DISPONIVELESSX Cos 
FRINT "A GRAVIDADE E "GS . id 
ERINT “A ATMOSFERA E "rag 

FRINT O 

EFRINT “ENERGIA FARA OS RETROFOGUETES ,? 


INEUT E > RR io = O 
FRINT "ENERGIA FARA A BLINDAGEM TERMICA 9% o 
INFUIT Aa ; a: 

IF E+5:X THEN GOTO 700 je Ea 
CLS à Se 

IF E:=Gx10 THEN GOTO 790 


2 


É E ua Es A E nas Cs a 
Ar E Em . E . s - o : 5 : y e 
-*: Continuação de Salvamento no Espaço é - 
o Von a , E E 
Ce ss TT7O FRINT "VOCE FEZ UMA CRATERA NOVA! U 
“780 GOTO D60 ; Do: 


“CC V79O IF S:=ARIO THEN GOTO 820 É 

“0 800 FRINT "VOCE E UMA LINDA ESTRELA CADENTE! 

“o go GUTO Beo 

o 920 FRINT "VOCE FOUSOU LINDAMENTE, .. FARABENS" 

 CBZ0 IF X-S-E225 THEN GOTO geo 

cd 840 PRINT "FENA QUE VOCE NAO TENHA ENERGIA” 

o E50 PRINT "SUFICIENTE FARA ABRIR A ESCOTILHA" 

; Ba) STOF E 

“1000 FRINT ig Elo : 

PRINT "VOCÊ VAI EMBARCAR EM UMA MISSAO" 

O PRINT "PARA LEVAR SUFRIMENTOS MEDICOS" 

toão PRINT "FARA UM FLANETA DISTANTE. " 

1040 PRINT "PRIMEIRO VOCE FRECISA FREFARAR" 
1050 PRINT "A NAVE FARA A VIAGEM DISTRIEUINDO": 
1060 PRINT “A ENERGIA DISFONIVEL ENTRE 08" 
LO70 PRINT "MOTORES, A ELINDAGEM E O CONTROLE" 

“LOBO PRINT "AMBIENTAL. VOCE ENTAD VIAJA EM " 


ir * 1090 PRINT "ESTADO DE HIBERNACAO E QUANDO 
LiOO FRINT "ACORDA RECEEE UM RELATORIO SOERE 
. 2 Vito FRINT "O QUE ACONTECEU NO CAMINHO. 
J1ZO FRINT "AGORA VOCE FRECISA FOUSAR NO" 
CO sO FRINT VRPANETAS O o aa alto inata ra! ea 
Aldo PRINT "AFERTE QUALQUER TECLA" EN rig Pad 
“Olião IF INEEy$="" THEN GOTO liso Pagu 
eitão CLS CER a 
11720 RETURN ; 
ma : : 
| a : 
| 
A listagem acima é para o TK-83. Para é 
outros computadores, faça as mudanças abaixo. - 
todos os RND para KND (0) ; Ro E 
; Otocdos os RND para RND(1) : . Como aumentar o jogo a 
Do. 010,250,470,750, 1160 HOME e aa o : da E ada 
- MOSO LF LEFTE(IA, 1)="S" THEN -GOSUE lú0O “o Este jogo é feito de duas partes distintas. Na primeira, or er fa dei 
«MO SIO OM INT(RIND:4+] ) GOTO 20, 330,380,410 na segunda, tenta pousar no planeta. se quiser, hacia e des e ds Na dis 
nO): FOR J=i TO So EL Do e Sn Ea SS RA terceira parte na qual faz uma viagem cheia de perc ços des 
Oiis5o GET 1$ Po sas BRR da toe pouso até a sede da Cruz Vermelha Intergaláctica. 
à Biildo GET lê 2: IF f&="" THEN GOTO d 150 29 k 


Pouso na Lua 


A0O FLOT 200,Y: DRAW 24,0 
210 DRAW -4,20:DRAW -15,10 
420 DRAW -1%,—10:DRAW -4,-20 
430 RETURN 

440 LET Y=172-A*32 


450 INE 
AO PL. Y 
470 DRA E, O 


480 DRAW INVERSE 1, 100-E,O 

490 RETURN 

S00 LET I$=INKEYS E 

S10 IF I$="0" THEN LET T=T+4: 
IF T>100 THEN LET T=100 


Este jogo é diferente dos anteriores, pois utiliza instruções gráficas. Como 
essas instruções variam muito de micro para micro, apresentamos uma 
listagem separada para cada modelo, Leia a descrição do jogo nesta página 
e procure nas páginas seguintes a versão apropriada ao seu computador. 


Como jogar Pouso na Lua 


O Capitão Cometa, chefe dos pilotos espaciais, está sentado ao seu lado em 
uma pequena espaçonave de doi lugares que se aproxima rapidamente da 


superfície da Lua. Está na hora do teste final do Curso de Pilotagem Lua: Versão TK-85 es aê E ES e O a 

Avançada. Você tem que pousar na Lua com a menor velocidade possível. Pouso na ua. São IF T>F THEN LET T=F 

Você pode controlar o empuxo do Tetrofoguete, apertando a tecla A para Ps O 540 RETURN 

aumentá-lo e D para diminuí-lo, observando ao mesmo tempo o pouso natela | a RR Go RC e 

do computador. Se aumentar demais o empuxo, a nave começará a subir. Se pa GOSUR 300 pm RAT ENR (21) 4 FNR OSLO Ee 

diminuir demais, acabará abrindo uma nova cratera na Lua. Que nota lhe 50 LET C=0:GOSUR 380 am ipenkp HBO MENT 1 4 Na 

dará o Capitão Cometa? 50 det ri i PEA a AL re ah (F<25 590 PR ag NO ESPADO!!! 
dO LET DESILET BABE Vi RARE UR 0,0:"POLUSDU COM “5 


LET C=4* (V<0) INT((V+V1)KS)/LO” 


90 GOSUE 440 - =) 620 IF (V+VI)<B THEN GOTO 640 
* 100 LET A=SILET BSHILET C=24(He25) e GRINT “TODOS e 
Es 110 GOSUE 440 : 640 FRINT "A SALVO" GRE 
Pouso na Lua: Versão TRS-80 20 LET A=4:LET E=TILET C=0 
1zZ0 GOSUER 440 


140 GOSUB 500 
10 CLS 350 PRINT ES84, "VELOCIDADE: " 150 LETºVi=V-T/20+G:LET F=F-T/10 
20 CLEAR 200 Z60 PRINT E576, “ALTITUDE: " 160 LET Hi=H=(V+Vi)/10 
SO AG=STRING$ (25, 131) 370 FRINT 8768, "EMEUXO: " 170 LET C=1:GOSUR 380 
40 MI$=CHRS (194) +STRING$ (2, 176) 380 RETURN É 180 IF H1<O THEN GOTO 230 
50 M2g=" "+STRINGS (4,191) 390 Y=818-64x*INT(H/8) 190 LET H=HIZLET V=VI 4 
60 M58=CHR$ (131) +CHR$ (135) STRINGS 400 PRINT &Y,3:IF C=1 THEN FRINT 200 IF Heé=100 THEN GOTO 50 
(2, 131) +CHR$ (139) +CHR$ (LE) MIBIELSE FRINT CHR$(196); elo GOSUE 554 
70 GOSUE Z60 410 PRINT Ey+64,5:1IF C=1 THEN 220 GOTO 250 
BO GOSUE 300 “ERINT M2$; ELSE PRINT CHR$ (198); 230 LET H=0:LET C=0:GOSUE 380 
90 C=1:GOSUK 390 420 PRINT Ey+128,52:1F C=1 THEN 240 GOSUE 610 
100 A=1:E=F:GOSUE 440 E FRINT MZ$:ELSE PRINT CHR$ (198) 250 STOP 
LlO A=2: E=ARS(V): GOSUE 440 30 RETURN 260 LET H=l00;LET F=100:LET T=0 
120 A=3:E=H:GOSUE 440 4MO Y=(AREHI) 464 270 LET V=5+ENR (10) 
130 A=4: E=T:GOSUE 440 450 PRINT By, CHR$(217)3 280 LET G=(FNR(40)+40)/100 
140 GOSUE 480 480 FRINT BY, LEFTS (R$,B/4)5 290 RETURN 
150 Vi=V-T/20+6:F=F=T/10 470 RETURN 300 FLOT 180,8 o 
160 Hi=H=(V+VI)/10 480 I$=INHEYS sio FOR X=1 TO 15 É 
170 C=0:GOSUR 390 490 IF Ig="AM THEN T=T+4:1F s20 DRAW 5. FNR(Z)-2 
1890 TF Hixio THEN 230 T>100 THEN T=100 330 NEXT X 
190 H=HisV=Vi S00 IF [6="D" THEN T=T-45 IF 340 FRINT "GRAVIDADE: ";6G 6) E 
200 IF Hi=100 THEN 90 Tão THEN T=0 Z50 PRINT ** “COMBUSTIVEL: "O SauyvEL: E 
210 GOSÚR são ÃO IF T>F THEN T=F =60 FRINT “"* “ALTITUDE: *** "EMPUXO: 
BOTO 250 520 RETURN a7o RETURN 
H=02C=1:GOSUE a90 530 CLS =80 INVERSE C 
BOSUE 590 540 FOR I=1 TO 20 z90 LET Y=Hx1.3+10 
END SãO PRINT EINTCRND(O) 41024), en 
H=100:F=100:T=0 560 NEXT | 
V=INTC(RND (0) *10+6) 370 PRINT E470, "FERDIDOS NO ESPAcÓ" | 
G=INT(RND(0)440+41)/100 o 580 RETURN | 
RETURN 


390 PRINT "FOUSOU COM VELOCIDADE a 
FOR X=90 TO 127 INT ((V+VI) 4) /10 
SET (X,47=-INT(RND(0) *5)) 600 IF (V+VI):8 THEN FRINT “A SALVO” 
NExT Ã 


ELSE FRINT "TODOS MORTOS" 
FRINT "GRAVIDADE: ":6G 610 RETURN 


O FRINT E1i92, "COMBUSTIVEL: " 


30 


32 


Pouso na Lua: Versão TK-83 


lo ULS 


20 LET Hi=" AdAGS6b66ELb6GDBGO66I1" 


so GOSUR Jã0 

40 GOSUE 420 

so LET C=1 

dO GOSUE 490 

70 LET Asl 

Bo LET E=F 

90 GOSUE 5% 
100 LET A=2 ( 
110 LET E=ABS (A 
iZô GOSUVE 590 

130 LET A=E 

140 LET E=H 

150 GBOSUR 590 

1680 LET 8=4 

170 LET B=T 

t8O GOSUE s90 
io GUBUE 630 

200 LET Vi=V-T/2o+ã 
240 LET F=E-T/10 
220 LET HisH=(VAVID/10 
230 LET oO 

240 GOSUR 490 

220 IF Hizo THEN GOTO Z1IO 

O LET H=HI 

) LET V=Vi 

280 [LF Hi=[00 THEN GOTO bar( do) 
Po GOSUE 7200 

: à GOTO Z50 

So LET H=0 

eta = o (rel 

: » GUSUR 4GO 

40 GUSUR 760 

AO STaR 

“to LET H=100 

70 LET F=100 

“80 LET T=0 

290 LET V=5+INT(RNDKLO-+1]) 
400 LET G=INT(RNDX40+40)/100 
4L0o RETURN 


420 PRINT AT 21,20;"LSDADSADASI! 
GRAVIDADE: "16 
440 FRINT AT =,0;"COMEBUSTIVEL:" 
4390 FRINT AT 7,05"VELOCIDADE: 


430 PRINT AT 


460 FRINT AT 11,0;"ALTITUDE:" 
470 PRINT AT 15,0: "EMPUXOS 
go RETURN 

420 LET Y=(100-H) /6+1 

200 [IF C=0 THEN GOTO 550 

SO PRINT AT y,24;"0347" 


320 FRINT AT S"L0 WI” 
Ea FRINT AT :ºLTG6YI! 


ado GOTO são 
390 PRINT AT 


SãO FRINT AT vá " 
70 FRINT AT su n 
580 RETURN ESPAÇOS) 


90 LET Y=Ax4 
600 FRINT AT Y,05"! e 
SioO PRINT AT Y,0:BE&( TO E/5) 
620 RETURN 


OU LET I$=[NEEYE 

ago TE Jó="A" THEN LET T=1+90 

áuo (FP T-100 THEN LET T=100 

dou [E Já="D" THEN LET =[--dq 

ó70o [E Tão (HEN LET T=0 

680 [RF TSF THEN LET T=F 

SPO RETURN 

FI CS 

“to FOR J=1 TO Go 

(oo PRINT AT INT(RNDEZS), 
EMT CRNDR ET ger 

ão NEXT I 

“SO FRINT AT 10,105 "FERDIDUS 
MO ESFACO” 

“0 RE TURN 

780 PRINT Al Soços"FOUSOL 
COM VEL “CS INTOCVAVID ASI O 

PF IF «vevip:a THEN FRINT 
“A SALVO! 

“Bo TE (U+Vt) = THEM FRINT 
“TODOS MORTOS" 

?90 RETURN 


Nota especial para os 
usuários do TK-83 


Os caracteres graficos sao indicados 
na listagem de acordo com a seguinte 
significa 

depois 


convencao: um carater "Lº 
aperte a tecla GRAFHICS e 
escreva as letras ou numeros seguin- 
tes com a tecla SHIFT apertada ate 
chegar a um “]”º, Entao aperte de no- 
vo a tecla GRAFHICS, voltando ao mo- 
do normal. 


Pouso na Lua: Versão Apple 


10 HOME 
20 HER 
ZO DEF FNR(X)=INT(RND(1)*X+1) 
40 GOSUE São 
EO GOSUK 270 
bo C=3:FOSUE XB0 
70 B=1:E=F; GOSUE 460 
go A=2: B=ABES (V): GOSUE 460 
90 A=H1B=H:GOSUR 460 
100 A=4:E=T:GOSUR 460 
110 GOSUR 530 
20 Vi=V-7/20+6:F=F-T/10 
ião Hi=H-(V+evVid)/10 
140 C=0: GOSUE Z80 
150 IF Hi£0 THEN 200 
160 H=Hi:V=Vi 
170 IF HÚi=l00 THEN 60 
180 GOSUR 570 
190 GOTO 220 
200 H=0: C=H:GOSUE 380 
210 GOSUE 600 
220 END 
2x0 H=100:F=]00:;T=O 
240 V=5+ENR (LO) 
250 6=(FNK(40)+40)/100 
260 RETURN 
270 HCOLOR= 
280 HFLOT 0,155 
290 FOR X=0 TO 279 STEFP 5 
Z00 HELOT TO X, 159-FNR (10) 
310 NEXT 


320 FOR 1I=1 TO 30:HELOT FNR(279)s 


ENRC(ISO) 
330 NEXT 


=40 VTAR 21:7FRINT TAR(34)5"6="5 


Patu Td) 
áio 


ZOO 
O) 


a40 


ZED VTAR(21):FRINT "COMBUSTIVEL: ": 


FRINT “VEL:” 
=Z60 FRINT “ALTITUDE: ":Z PRINT 
370 RETURN 
“80 HCOLOR=C 
S90 Y=(100-H)x1.% 


“"EMPUXD: "5 


HFLOT 140,Y TO 1iZÓó,Y+ió 
HFLOT TO iZó,Y+20: 
HELOT TO 160,Y+20 


HFLOT TO L60,Y+10:HFLOT TO 140,Y 


HFLOT 155,Y+20 TO 160, Y+25 
HFELOT 125,Y+20 TO 120,Y+25 


RETURN 

VTAR (Z0+A) :HTAE B 
INVERSE 

FRINT SPC(E/4)3 

NORMAL 

FRINT SFC(26-K/4)5 

RETURN 

Ié="" IF FEEE(-16384) 5127 


THEN GET Ig 

IF 1$="A” THEN T=7+4: 

IF T>loW THEN T=100 

IF Ig="D” THEN T=T-4: 

IF T£o THEN T=0 

IF T>F THEN T=F 

RETURN 

HOME: VTAR 2% 

FRINT "FERDIDOS NO ESPACO! !M 
RETURN 

HOME: VTAR 22 

PRINT "POUSOU COM VEL *“: 
IMT((V+AVi)*5)/10 

IF (V+vi)cB THEN 640 

FRINT “MORRERAM TODOS": RETURN 
FRINT “A SALVO"; RETURN 
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Algumas sugestões 


Aqui estão algumas idéias que você 
poderá usar nos programas deste 
livro ou em seus próprios programas. 
Ão incluir novas instruções em um 
programa já pronto, você tem duas 
opções: utilizar apenas linhas vagas 
ou numerar de novo todo o 
programa. No segundo caso, não se 
esqueça de mudar todas as 
instruções GOTO e GOSUB. 


Faça o computador explicar 
como se joga 


Você pode fazer 
com que o 
computador 
imprima instruções 
sobre o jogo. Para 
isso, basta 
acrescentar 
algumas linhas no 
início do programa, 
como no exemplo 
abaixo, e colocar 
uma sub-rotina no 
final. 


to FRINT "NOME DO JOGO" 
ti FRINT "VOCE QUER SABER" 
12 FRINT "COMO JOGAR 2" 

15 INFUT 16 


TKlt7 IF [$(1)="S" THEN GOSUE 1000 
BO 17 IF LEFTSCIS,1)="5" THEN GOSUE 1000 


o programa principa) entra aqui 


1000 PRINT "VOCE TEM QUE FAZER 
1010 PRINT "O SEGUINTE : 
1999 RETURN 


Você pode usar quantas linhas quiser 
para as instruções. Não se esqueça de 
colocar um número e a palavra PRINT 
no início de cada linha. O número de 
caracteres entre aspas deve ser menor 
ou igual ao número de caracteres que o 
seu computador pode imprimir em uma 
linha. Não se esqueça também de 
colocar uma linha RETURN no final da 
sub-rotina. 


Faça o computador 
parar e esperar 
por você 


Se houver muitas linhas de instruções, 
talvez você precise incluir a sub-rotina 
abaixo, que faz com que o computador 
pare de executar o programa até você 
apertar uma tecla. Assim, evitará que as 
instruções desapareçam na parte 
superior da tela antes que tenha tempo 
de lê-las. Coloque uma linha GOSUB no 
ponto em que deseja que o programa 
pare e acrescente no final a seguinte 
sub-rotina: 


todo FRTHT "APERTE UMA TECLA! 
todo FRIMT "FARA CONTINUAR 
BTKioco dr oinkEvs="" THEN GOTO Loco 
Oioro cer is 


mi 
oz 


TK 
no 


tózo PRINT 
todo RETURN 


Faça o computador 
“conversar” com você 


para fazer perguntas e agir de acordo 
com as suas respostas. Aqui está, por 
exemplo, um pequeno programa que faz 
com que o computador se recuse a jogar 
a menos que seu nome comece com a 
letra J: 


PRINT "COMO VOCE SE CHAMA?" 


1 

2 INFUT Ig 

5 IF I&(1)05]" THEN GOTO 1000 

3 IF LEFTS(I4, 1)<2"]"” THEN GOTO 1000 
4 PRINT "OK...VOCÊE FODE JOGAR" 

5 PRINT "ESTA FRONTO 2" 

6 INFUT J& 

7 IF J$(1)c2:"S" THEN GOTO & 


7 IF LEFTS(J$, 1) srs" THEN GOTO 5 


O programa principal entra aqui 


1000 FRINT "DESCULFE. ESTE JOGO E” 
tO10 PRINT "SO FARA FESSOAS" 

1OZo PRINT "CUJOS NOMES COMECAM" 
1030 PRINT "COM A LETRA J" 


Aqui está um programa em que o 
computador desconfia de que você não 
tem coragem suficiente para jogar. 


to FRINT "JUGO MUTTO FERIGOSO" 
12 FRINT "VOCE TEM CORAGEM" 

14 FRINT “DE ENFRENTAR" 

t& PRINT "O MONSTRO CABELUDO?" 
tá INFUT 1% 


TK17 IF 1$CD)="5" THEN GOTO Z0 
BO !7 IF LEFTICIS,1)="5" THEN GOTO 20 


te ERINT "COVARDE!!! 
19 STOF 


Você pode combinar o programa acima 
com a sub-rotina de instruções 
colocando as linhas 11 a 17 do programa 
da página anterior como linhas 20 a 26 
do programa acima. Comece o 
programa principal na linha 30 e 
acrescente a sub-rotina de instruções no 
final, 


Quer jogar de novo? 


Ko invés de escrever RUN cada vez que 
deseja começar um jogo, você pode 
fazer com que o computador pergunte 
se quer jogar de novo. Coloque as linhas 
abaixo no final do programa, antes do 
último STOP. 


todo FRINT “QUER JOGAR DE NOVO +" 


Foto TNEUT [4 

TKióvo (EF 1$(1)="5" THEN RUN 

DO fozo 1F CLEPTECIs, )="5" THEN RUN 
soxo PRINT "O... TCHAU! 


Mude os números das 
linhas de acordo com 
o seu programa. 


Efeitos sonoros 


Muitos microcomputadores dispõem de 
recursos para gerar sons. Você pode 
utilizar esses recursos em qualquer 
ponto dos seus programas. Experimente, 
por exemplo, simular o ruído de uma 
explosão ou fazer com que o 
computador toque uma musiquinha toda 
vez que alguém ganhar. Como as 
instruções para gerar sons variam de 
computador para computador, você terá 
que consultar o manual do seu micro. 
Em certos casos, você pode acrescentar 


uma única linha ao programa no local 
onde deseja o som. Em outros, vai 
precisar de várias linhas; nesse caso, é 
melhor usar uma sub-rotina. 

A linha abaixo mostra, por exemplo, a 
instrução para produzir o som do dó 
central do piano durante 6 segundos em 
um computador do tipo TRS-80: 


SOUND 69, LO 


Você pode usar quantas instruções 
quiser para gerar sons, mas não se 
esqueça de colocar um número no início 
de cada instrução. 


Nota especial para os 
usuários do TK-85 


x» 
+ 
Se o seu micro é um TK-85, talvez 
alguns dos jogos deste livro sejam 
rápidos demais para o seu 
computador. As instruções para 
diminuir a velocidade aparecem na 
mesma página que o jogo 
correspondente. Como regra geral, 
quanto maior o número que você usar 
no “loop” de espera, mais lento será o 
jogo. 
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Como programar jogos 


Depois que você estiver 
familiarizado com os jogos deste 
livro, certamente terá vontade de 
programar outros jogos. Nestas duas 
páginas, discutimos alguns conceitos 
básicos de que vai necessitar para 
isso. 


Antes de mais nada, vale a pena 
pensar um pouco no que o seu 
computador pode fazer e no que ele não 
pode. 


* Pode tomar decisões comparando de 
várias formas informações anteriores. 


hd Pode mostrar os resultados dos 
cálculos e decisões e também o que 
está guardado na memória. 


* Pode pedir novas informações. 


* Pode escolher um número ao acaso, 
usando RND. 


* Não pode fazer nada que não esteja no 
programa. 


* Se você usar instruções válidas de 
BASIC, não pode distinguir instruções 
sensatas” de instruções tolas. 


Quando estiver planejando o 
programa de um jogo, não inclua nada 
que o seu micro não seja capaz de fazer. 


Como planejar um jogo 


Antes de programar o computador para 
jogar um jogo, você precisa saber 
exatamente como será jogado e quais 
serão as regras. Como o computador vai 
necessitar de uma série de instruções 
simples e lógicas, é melhor imaginar 
primeiro todo o jogo e depois dividi-lo 
em pequenas partes. 

Em seguida, você deve escrever todas 
as partes do jogo, na ordem em que 
serão executadas (escreva em 
português; ainda não está na hora de 
usar BASIC). 

A ilustração abaixo mostra o plano de 
um jogo simples de atirar, que pode ser 
usado para disparar balas de canhão 
contra um navio pirata ou raios laser 
contra uma nave alienígena. 


PLANO DE JOGO 
1) IMPRIMIR TÍTULO E 
INSTRUÇÕES 


2) ESCOLHER 
UM ALVO 
3) COMEÇAR UM "LOOP" 
QUE PERMITA AO 
JOGADOR N TENTATIVAS 


4) PEDIR AO JOGADOR. 
PARA DAR UM TIRO 


5) VERIFICAR SE O 
TIRO ACERTOU 


6) IMPRIMIR UMA 
MENSAGEM SOBRE O 
RESULTADO DO TIRO 


7) VOLTAR PARA 
A TENTATIVA 
SEGUINTE 


Como escrever o programa 


O passo seguinte consiste em traduzir o 
seu plano para a linguagem BASIC. Cada 
parte do plano pode corresponder a 
várias linhas de BASIC. Deixe números 
vagos entre os números das linhas do 
programa, para poder acrescentar mais 
tarde novas instruções, se for 
necessário. 

Escreva um rascunho do programa e 
comece a testá-lo no computador. O 
computador é capaz de detectar muitos 
erros de programação e mesmo, em 
certos casos, de indicar exatamente 
onde está o erro. Se o seu programa não 
der certo logo da primeira vez, não 
desanime; “acertar” um programa é um 
processo lento e tedioso, até mesmo 
para os programadores experientes. 


Depois que o programa básico estiver 
funcionando, você pode aperfeiçoá-lo, 
acrescentando mensagens, comentários, 
alvos diferentes etc. Também pode 
incluir partes dos programas deste livro 
nos seus jogos. 

Não espere que os seus primeiros 
jogos sejam muito movimentados e 
originais. Comece com idéias simples e 
esteja preparado para modificá-las se 
for necessário. É provável que você 
descubra que incluiu alguma coisa no 
jogo que é muito fácil para uma pessoa 
mas muito difícil para um computador. 
Quando adquirir experiência, saberá 
instintivamente o que o seu computador 
é capaz de fazer. 37 
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Instruções de BASIC 


Este capítulo explica como funcionam algumas instruções comuns de 
BASIC. Quase todas foram usadas nos programas deste livro, de modo que 
você pode consultar as listagens dos jogos para ver o que essas instruções 
fazem nos programas. Nem todas as instruções podem ser usadas em 
todos os micros mencionados neste livro. A tabela de equivalência da 
página 44 mostra as diferenças entre os vários modelos. 


LET diz ao computador para dar um nome a uma 
parte da memória e guardar nesta parte um número 
que você especifica. Assim, por exemplo, LET A=6 
significa que o computador deve chamar de “A” uma 
parte da memória e guardar nesta parte o número 6. 
“A” é chamado de “variável” e colocar alguma coisa 
em À é chamado de “atribuir um valor a uma 
variável”. 

Alguns nomes de variáveis são seguidos por um 
cifrão (AS, por exemplo). Isto significa que a variável 
é do tipo “string” e a memória correspondente pode 
conter um número qualquer de caracteres (letras, 
números e símbolos). 


PRINT diz ao computador para mostrar alguma coisa 
na tela. Esta instrução pode ser usada de várias 
formas: 

Uma mensagem entre aspas precedida por PRINT é 
mostrada na tela exatamente como foi escrita. A parte 
entre aspas não precisa ser em BASIC, pode ser 
qualquer coisa. 
| instrução PRINT seguida pelo nome de uma 

variável (PRINT A ou PRINT A$, por exemplo) diz ao 
computador para mostrar na tela o valor da variável. 

PRINT também pode ser usada para fazer cálculos 
e mostrar o resultado. Assim, por exemplo, a instrução 
ga 6*4 faz o computador mostrar na tela o número 

Você pode usar PRINT sozinha para deixar uma 
linha em branco na tela. 


RND diz ao computador para escolher um número ao 
acaso. Computadores diferentes usam diferentes 
formas de RND (essas diferentes formas estão na 
tabela da pág. 44). Nos computadores TK, RND gera 
um número entre o 0 e 0,99999999. Você pode mudar 
os limites dos números gerados por RND 
multiplicando-os por uma constante e somando-os a 
outra constante. Assim, por exemplo, RND*20 gera um 
número entre 0 e 19,99999999, enquanto que 
RND*20 + 1 gera um número entre 1 e 20,99999999. 
q gerar apenas números inteiros, use a instrução 


Para gerar letras e símbolos, use a instrução CHR$. 


INT é a abreviação de inteiro. No caso de números 
positivos, diz ao computador para ignorar tudo que 
está à direita do ponto decimal. Assim, por exemplo, 
INT (20.999) é o número 20. No caso de números 
negativos, tudo que está à direita do ponto é ignorado 
e o número que está à esquerda é “aumentado” de 
uma unidade. Assim, por exemplo, INT(—3.6) é o 
número —4, 

A instrução INT é frequentemente usada junto com 
RND, como em INT(RND*20 + 1), que diz ao computador 
para escolher ao acaso um número inteiro entre 1 e 
20. 


CHR$ é usada para transformar números em letras. 
Com exceção do TK-82C e TK-83, todos os 
computadores mencionados neste livro utilizam o 
código ASCII* para a correspondência entre números 
e caracteres. Assim, por exemplo, o número de 
código para a letra A é 65 e a instrução CHR$(65) faz a 
letra A aparecer na tela. 

Você pode usar as instruções CHR$, INT e RND 
para fazer o computador escolher letras ao acaso, 
como em CHRS$(INT(RND*26 + 65)), que no 
computador TK-85 gera uma letra qualquer entre A e 
Z (para os outros computadores, consulte a tabela da 
página 44). 


FOR é usada para começar um “loop” que faz o 
computador repetir uma parte do programa um certo 
número de vezes. Deve ser seguida pelo nome de 
uma variável (G, por exemplo) e pelos valores inicial e 
final da mesma variável (= 1 TO 10, por exemplo). 

O final do “loop” é indicado pela instrução NEXT 
(NEXT G, neste exemplo), que faz o valor da variável 
aumentar de uma unidade e manda o computador de 
volta para a instrução FOR. Quando o valor da variável 
chega ao valor final, o computador ignora a instrução 
NEXT e passa para a linha seguinte. Para cada 
instrução FOR deve haver uma instrução NEXT, caso 
contrário o programa não funcionará. 


INPUT diz ao computador para dar um nome a uma 
variável, mostrar na tela um ponto de interrogação e 
esperar que você escreva o valor da variável. A 
execução do programa só prossegue se você apertar 
a tecla RETURN, ENTER ou NEWLINE. 

Você pode usar variáveis numéricas (sem o 
cifrão) ou variáveis tipo “string” (com um cifrão no 
final) em uma instrução INPUT, mas se usar uma 
variável numérica o computador não aceitará letras. 


*O código completo está na pág. 43. 
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INKEY$ diz ao computador para verificar se você 
está apertando alguma tecla e, em caso afirmativo, 
qual é essa tecla. O computador não espera você 
apertar alguma tecla, como no caso da instrução 
INPUT. À instrução INKEY$ é geralmente usada 
dentro de um “loop” que faz o computador verificar 
muitas vezes o teclado. Isto é necessário porque os 
computadores funcionam muito depressa e você não 
teria tempo de apertar uma tecla no tempo que o 
computador leva para fazer uma única verificação. 

Quando o “loop” termina sem que você tenha 
apertado nenhuma tecla, o computador prossegue 
com um “string” que não contém nenhum símbolo (o 
chamado “string” vazio). 


GOTO faz o computador pular para uma instrução 
mais acima ou mais abaixo, ignorando as instruções 
intermediárias. GOTO deve sempre ser seguida pelo 
número da linha para onde o computador deve pular. 


GOSUB diz ao computador para sair do programa 
principal e ir para uma sub-rotina. GOSUB deve ser 


seguida pelo número da primeira linha da sub-rotina. 


A última instrução de qualquer sub-rotina deve ser 
RETURN, que manda o computador de volta ao 
programa principal, para a linha seguinte à da 
instrução CGOSUB. 


IF... THEN diz ao computador para verificar se uma 
expressão é verdadeira ou falsa e fazer coisas 
diferentes, dependendo da resposta. E usada com os 
seguintes sinais, além das palavras AND e OR: 


igual a 

menor que 
maior que 
menor ou igual a 
maior ou igual a 
diferente de 


VIHINVAI 


< 
> 
“ 


Se o computador verifica que a expressão é 
verdadeira, executa a instrução que se segue à 
palavra THEN. Se a expressão é falsa, ignora o resto 
da linha e passa para a linha seguinte. 


CLS é usada para apagar tudo que está na tela, sem 
afetar o que se encontra na memória do computador. 
E útil para limpar a tela antes de executar um 
programa ou para tentar uma mensagem na tela 
apenas por um período limitado de tempo durante um 
jogo. 


HOME é usada para limpar a tela nos computadores 
do tipo Apple, em lugar de CLS. 


ABS diz ao computador para ignorar os sinais de mais 
e de menos na frente dos números e tomar o seu valor 
“absoluto”. Assim, por exemplo, ABS(— 10) é 10 e 
ABS(+ 10) também é 10. 


VAL é usada para obter o valor numérico de um 
número associado a uma variável “string”. Em outras 
palavras, a instrução VAL diz ao computador para 
ignorar o cifrão e considerar a variável como se fosse 
uma variável numérica. Assim, por exemplo, se 
I$=“60", então VAL(I$) é o número 60. 


ASC é usada para obter o número do código ASCII 
correspondente a úm dado número, letra ou símbolo. 
Assim, por exemplo, ASC (“3”) é igual a 51. A 
expressão entre parênteses deve ser do tipo “string”, 
como “20” ou AS. 

Os micros TK não têm a instrução ASC, embora o 
TK-85 use o código ASCII. 


CODE é a instrução usada nos micros TK em lugar de 
ASC. Como no caso da instrução ASC, CODE deve ser 
sempre seguida por uma expressão do tipo “string”, 
entre parênteses. Observe que os números de código 
dos caracteres nos micros TK-82 e TK-83 não são os 
mesmos que nos outros computadores. 


TAB é uma instrução usada para mover o cursor na 
tela até a coluna desejada. Geralmente é usada em 
conjunto com PRINT para mostrar alguma coisa no 
meio da tela. O número de espaços de deslocamento 
do cursor é colocado entre parênteses depois de 
TAB. O número máximo que pode ser usado depende 
do modelo de computador (vide tabela na pág. 45). 41 


SGN diz ao computador para verificar o sinal de um 

pes Z7, número. O resultado é — 1 se o número é negativo, O 
2] | se o número é zero e +1 se o número é positivo. 

; Assim, por exemplo, SGN (—30) é —1, SGN(7) é +l e 
SGN (0) é 0. 


DIM diz ao computador para reservar espaço na 
memória para um “array” (variável indexada). Assim, 
por exemplo, DIM X(6) diz ao computador para 
reservar um espaço suficientemente grande para 
conter 6 elementos, que serão chamados de X(1), X(2), 
X(3), etc. DIM A(8,8) reserva um espaço na memória 
para 64 elementos, que serão chamados de A(1,1), 
A(1,2), etc. Uma variável indexada nunca pode ser 
usada em um programa com um número entre 
parênteses maior que o especificado na instrução 
DIM. 


SQR é usada para obter a raiz quadrada de um 
número. Assim, por exemplo, SQR(16) é igual a 4. 


SIN é usada para calcular o seno de um ângulo. Em 
um triângulo retângulo, o comprimento do lado oposto 
a um ângulo dividido pelo comprimento da hipotenusa 
(lado oposto ao ângulo reto) é chamado de seno desse 
ângulo. Para usar SIN em um programa, o ângulo deve 
ser expresso em radianos, e não em graus. 


e 
VB: 
AA 


a) A Sus) ATN é uma das funções trigonométricas que os 

o computadores são capazes de calcular (outra é o 
seno, de que falamos acima). ATN é a abreviação de 
arco tangente. Em alguns computadores, esta 
instrução é chamada de ARCTAN. 


STOP diz ao computador para parar de executar o 
programa. Em todos os computadores, a não ser o 
TK-82C e o TK-83, a instrução END faz o mesmo efeito. 


PEEK é usada para descobrir o que existe em uma 
certa região da memória do computador. Esta 
instrução é sempre seguida por um número entre 


parênteses, que especifica um “endereço” na 
memória. 


POKE é uma forma especial de guardar informações 


na memória do computador, usando o “endereço” de 
uma memória. 


Código ASCII 


Código TK-82C/TK-83 


nixlx|g|<e|jn/njwo|v|0O|z|Z|F|jR|j=|=|imjQjm|m|o 
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Tabela de tamanhos de tela 


Número máximo de 
caracteres na horizontal 
(ou número de colunas) 
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Número máximo de 
caracteres na vertical 
(ou número de linhas) 
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Respostas 


Pode ser que as suas respostas de 
alguns problemas sejam diferentes 
das que aparecem aqui. Isto não 
importa, contanto que funcionem no 
seu computador. Entretanto, 
verifique se são tão simples e 
concisas como as respostas do livro.» 


Página 5 
Decolagem 


Os números que determinam qual será a 
força são escolhidos nas linhas 30 e 40. 
Para mudar a máxima força possível, 
você pode mudar o 20 na linha 30, o 40 
na linha 40 ou os dois números ao 
mesmo tempo. É claro que se você 
aumentar a máxima força possível o jogo 
ficará mais difícil. 


Página 7 
Jogos Intergalácticos 


Mude as linhas 222 e 230 para: 


ve? LET E=B+INT (1000/66) 
2x0 GOTO 20 . 


e acrescente uma nova linha 15: 


15 LET E=O 


Página 9 
Pirata Cósmico 


Mude as linhas 30 e 40 e acrescente uma 
nova linha 35: 


30)" 


20 PRINT "DIFICULDADE? (é A 
35 INFUT S 
40 LET G=INT(S/3) 


Página 11 
Os Olhos dos Monstros 


Para fazer os monstros aparecerem em 
mais de quatro lugares na tela, você 
precisa colocar um número maior que 4 
no meio da linha 70, mudar a linha 80 e 
colocar novas sub-rotinas no final do 
programa, uma para cada posição 
adicional. 


Aqui estão as modificações para fazer 
com que os monstros apareçam em 5 
lugares: 


70 LET R=INT(RNDe5+1) 
TK8o GOSUE 220+20%R 

BO ON KR GosUE 240,260,280,300,320 
240 LET D=5 
245 LET A=1 
250 GOTO J50 
260 LET D=1 
265 LET A=9 
270 GOTO 50 
280 LET D=5 
285 LET A=18 
“290 GOTO 350 
300 LET D=10 
305 LET A=7 
310 GOTO 350 
320 LET D=15 
325 LET A=15 
“30 GOTO So 


Você pode colocar os 
números que quiser em 
Ae D, contanto que 
caibam na sua tela. 


Para aumentar o número de monstros, 
mude o 10 nas linhas 30 e 220 para um 
número maior. (Use o mesmo número 
nas duas linhas.) 
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Módulo Lunar 


Para aumentar a velocidade máxima 
permitida para um pouso seguro, você 
precisa mudar as linhas 240, 250 e 260. 
Você pode usar os números que quiser; 
quanto maiores, mais fácil será o jogo. 
No exemplo abaixo, você precisa de 
uma velocidade de 2 ou menos para uma 
boa aterrissagem e uma velocidade de 7 
ou menos para uma aterrissagem 
razoável: 


240 IF V1>7 THEN PRINT "VOCES 
CAIRAM... TODOS MORTOS" 

250 IF Vi>2 AND Vi<=7 THEN FRINT 

-.. MAS ALGUNS FERIDOS" 

IF Víi<=2 THEN PRINT "BOA ATERRISSAGEM" 


"OK 


260 
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Feras de Galacticon 


Aqui estão quatro maneiras de tornar o 
jogo mais difícil: 
1. Começar o jogo com um número 


menor de pessoas, colocando na linha 
40 um número menor que 5. 


45 


2. Aumentar o número de feras, 
mudando o número 4 nas linhas 20 e 
30. Colocar os nomes das novas feras 
das linhas 81 a 89, usando M$ (5), M$ 
(6), etc. 

3. Aumentar o número de ataques, 
mudando o 8 na linha 160. 

4. Aumentar a probabilidade de que a 
fera fique enfurecida, mudando o .4 na 


2. Para diminuir a tolerância de 5 para 2 
anos, mude os números 5 nas linhas 180, 
190 e 200 para 2: 


180 IF ARS(T-T2)<=2 THEN PRINT "VOCE 
CHEGOU NA HORA" 

190 IF (T-T2)>2 THEN FRINT "VOCE 
CHEGOU MUITO CEDO" 

200 IF (T-T2)<-2 THEN PRINT "VOCE 
CHEGOU MUITO TARDE" 


Título original inglês 
COMPUTER SPACEGAMES 
Copyright O 1982 by Usborne Publishing Ltd. 


linha 330 por um número maior. Direitos exclusivos de publicação em lingua portuguesa para o mundo inteiro 
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Emboscada 


Neste jogo, N é o número de código. 
Para fazer com que a contagem 
corresponda ao número de código, você 
precisa fazer com que a contagem 
aumente de N em vez de aumentar de 1. 
Para isso, substitua a linha 190 por: 


TK 190 IF [$=CHR$ (CODE (L$) +N) THEN 
LET S=S5+N 

BO19O IF I$=CHRS(CASC(L$)+N) THEN 
LET S=S+N 
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Cinturão de Asteróides 


Você precisa mudar a linha 260 para que 
o computador some à contagem o 
número de estrelas em lugar de 1. O 
número de estrelas é controlado pelo 
valor escolhido para N na linha 70; 
assim, como no jogo acima, você precisa 
somar N à contagem. Você também terá 
que mudar a linha 320. 


260 LET S=S+N 
320 PRINT "VOCE FEZ ";S;" PONTOS" 


Página 21 
Viagem ao Futuro 


1. Para aumentar o número de anos que 
devem passar na Terra, mude o 100 na 
linha 30 para um número maior. O 
exemplo abaixo é para 150: 


30 LET T=INT(RNDX150+25) 


3. À linha 170 contém o número que 
determina o seu tempo de vida. Para 
aumentar (diminuir) o tempo de vida, 
basta substituir 50 por um número maior 
(menor). 


Página 23 
Vale da Morte 


Você pode tornar o vale mais comprido 
substituindo o número 200 na linha 30 
por um número maior. 


Página 25 
As Minas de Astron 


Para o computador lhe perguntar se 
quer jogar de novo, acrescente as linhas 
abaixo: 


645 PRINT ."JOGA DE NOVO? (S OU N)" 
646 INFUT A$ 
647 IF Ag="S" THEN GOTO to 


Para somar a quantia com que terminou 
o jogo à quantia inicial para o jogo 
seguinte, introduza uma nova linha 5 e 
modifique a linha 30; 


5 LET M=0 
0 LET M=M+ INT (RND*50+L0) *pº 


(Use a versão correta de RND para o seu 
micro.) 
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